home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 May / EnigmA AMIGA RUN 18 (1997)(G.R. Edizioni)(IT)[!][issue 1997-05][EAR-CD II].iso / earcd / util / dir / managers.lha / Managers / Cli_Master / arc.g next >
Text File  |  1997-01-14  |  2KB  |  97 lines
  1. G4C
  2.  
  3.  
  4. winbig -1 -1 320 38 "CLI-Master"
  5. wintype 11010000
  6. winout "con:0/11/640/245/Cli-Master Output/auto/close"
  7.  
  8.  
  9. xonopen
  10. lvmulti climaster $cmst_srce first
  11. if $cmst_mode = "lha"
  12.     setvar cmst_arc "ram:lha"
  13.     copy c:lha ram:
  14. endif
  15. if $cmst_mode = "lzx"
  16.     setvar cmst_arc "ram:lzx"
  17.     copy c:lzx ram:
  18. endif
  19. update arc.g 2 "Enter Archive Name"
  20. setgad arc.g 1 on
  21.  
  22. xonclose
  23. delete $cmst_arc
  24. setvar cmst_nwname ""
  25. update arc.g 1 $cmst_nwname
  26. lvdir climaster $cmst_dest refresh
  27. lvdir climaster $cmst_srce none
  28.  
  29.  
  30. box 0 0 0 0 in icondrop
  31.  
  32.  
  33. text 80 4 300 12 "" 20 nobox
  34. gadid 2
  35.  
  36. xtextin 20 16 280 13 "" cmst_nwname "" 30
  37. gadid 1
  38. if $cmst_nwname = ""
  39.     ezreq "You MUST supply a filename." "Sorry" ""
  40.     stop
  41. endif
  42. joinfile $cmst_destdir $cmst_nwname cmst_arcfile
  43. while $cmst_select > ""
  44.     cli '$cmst_arc -r -e -x a $cmst_arcfile $cmst_select'
  45.     lvmulti climaster $cmst_srce off
  46.     lvmulti climaster $cmst_srce next
  47. endwhile
  48. guiclose arc.g
  49.  
  50. xroutine arc_x
  51. gosub arc.g archiver
  52. extract cmst_destdir unquote cmst_arcdir
  53. cutvar cmst_arcdir copy char -1 end
  54. if $end != ":"
  55.     appvar cmst_arcdir '/'
  56. endif
  57. gosub arc.g arcext
  58. if $end == $cmst_ext
  59.     cli '$cmst_arc -x x $cmst_select "$cmst_arcdir"'
  60.     lvdir climaster $cmst_dest refresh
  61.     lvdir climaster $cmst_srce none
  62. endif
  63.  
  64. xroutine arc_v
  65. gosub arc.g archiver
  66. gosub arc.g arcext
  67. if $end == $cmst_ext
  68.     cli '$cmst_arc v $cmst_select >env:.tempfile'
  69.     guiopen reader.g
  70.     delete env:.tempfile
  71. endif
  72.  
  73. xroutine arc_t
  74. gosub arc.g archiver
  75. gosub arc.g arcext
  76. if $end == $cmst_ext
  77.     cli '$cmst_arc t $cmst_select'
  78.     lvdir climaster $cmst_srce none
  79. endif
  80.  
  81. xroutine arcext
  82. extract cmst_select unquote cmst_file
  83. extract cmst_file ext end
  84. return
  85.  
  86. xroutine archiver
  87. if $cmst_mode = "lha"
  88.     setvar cmst_arc "c:lha"
  89.     setvar cmst_ext ".lha"
  90. endif
  91. if $cmst_mode = "lzx"
  92.     setvar cmst_arc "c:lzx"
  93.     setvar cmst_ext ".lzx"
  94. endif
  95. return
  96.  
  97.